home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Video
/
World of Video.iso
/
gfxprograms
/
3dprograms
/
rayshade-4.0
/
fixes
/
fix020
/
examples
/
flameanim.ray
< prev
Wrap
Text File
|
1995-02-13
|
1KB
|
58 lines
/* animation for the CG-Praktikum */
/* written by Reto Mani */
/* (flame is part of my project) */
/* Definitions */
#define ANZ 30
#define ANG 720.0/ANZ
#define ANG2 360.0/ANZ
#define RAD 3.0
#define CUB .7
/* Globals */
screen 200 200
eyep 0 -10 1.5
maxdepth 3
frames 30
starttime 0
/* Surfaces */
surface Metall
diffuse .8 .8 .9
reflect .6
surface White
diffuse .3 .3 .3
surface White2
diffuse 1 1 1
surface LightBlue
diffuse .7 .7 1
/* Lights */
light .7 point (-RAD*2) 0 3
light .7 point (RAD*2) 0 3
light .7 point 0 (-RAD*2) 3
light .7 point 0 (RAD*2) 3
light .9 point 0 -8 3
/* Objects */
name Mb list
box White2 -CUB -CUB -CUB CUB CUB CUB texture wood
end
object Mb rotate 0 1 0 (ANG*time) translate RAD 0 0 rotate 0 0 1 (ANG2*time)
object Mb rotate -1 0 0 (ANG*time) translate 0 RAD 0 rotate 0 0 1 (ANG2*time)
object Mb rotate 0 -1 0 (ANG*time) translate -RAD 0 0 rotate 0 0 1 (ANG2*time)
object Mb rotate 1 0 0 (ANG*time) translate 0 -RAD 0 rotate 0 0 1 (ANG2*time)
torus Metall RAD .2 0 0 0 0 0 1
sphere Metall 3 0 0 -4.1
flame 8 0 0 -2
plane LightBlue 0 0 -1.5 0 0 1 texture marble